home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / C-D / DeveloperStax.cpt / Developer Stack 1.2r / card_15869.txt < prev    next >
Text File  |  1989-02-26  |  18KB  |  488 lines
  1. -- card: 15869 from stack: in.2r
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 15575
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on opencard
  8.   hide menubar
  9. end opencard
  10.  
  11. on closecard
  12.   if the short name of button id 4 is "Action On" then click at 39,326
  13. end closecard
  14.  
  15. on domenu which
  16.   if which is "New Card" or which is "Cut card" or which is "Delete Card" then
  17.     beep 3
  18.     exit domenu
  19.   end if
  20.   if which is "Protect Stack..." then
  21.     beep 3
  22.     answer "You don't want to do that!"
  23.     exit domenu
  24.   end if
  25.   if which is "Delete Stack..." then
  26.     play boing
  27.     answer "You really don't want to do that!"
  28.     exit domenu
  29.   end if
  30.   pass domenu
  31. end domenu
  32.  
  33.  
  34.  
  35. -- part 3 (field)
  36. -- low flags: 00
  37. -- high flags: 0007
  38. -- rect: left=84 top=31 right=337 bottom=512
  39. -- title width / last selected line: 0
  40. -- icon id / first selected line: 0 / 0
  41. -- text alignment: 0
  42. -- font id: 3
  43. -- text size: 9
  44. -- style flags: 0
  45. -- line height: 12
  46. -- part name: The Facts
  47. ----- HyperTalk script -----
  48. on mousewithin
  49.   --
  50.   --
  51.   --hypertext technique by Steve Drazga, ART Incorporated
  52.   --if you use this in your scripts please include these 2 lines.
  53.   --
  54.   --
  55.   global selectedWord      --in case you want to use it somewhere else
  56.  
  57.   if the locktext of the target is true then   --unlock the field if
  58.     set locktext of target to false            --it is locked.
  59.   end if
  60.  
  61.   if selection is not empty then  --something was selected
  62.     put selection into SelectedWord
  63.  
  64.     if space is in SelectedWord then  --the user selected more than 1 word
  65.       click at loc of target       --so we will clear the selection
  66.       exit mousewithin             --and exit to wait for another selection
  67.     end if
  68.  
  69.     --
  70.     --this is the section where you do something with the selection
  71.     --
  72.     if field CrossRef contains selectedWord then       --check index field for word
  73.       set visible of card field selectedWord to true   --show linked field
  74.       wait until the mouseclick is true                --wait for click
  75.       set visible of card field selectedWord to false  --hide linked field
  76.     else
  77.       click at loc of target
  78.       play oops                                        --no link was found
  79.       answer "Do you see any asterisk there?!" with "Oooh"
  80.       exit mousewithin
  81.     end if
  82.     --
  83.     --
  84.     --
  85.   end if
  86. end mousewithin
  87.  
  88.  
  89. -- part 1 (field)
  90. -- low flags: 00
  91. -- high flags: 0000
  92. -- rect: left=1 top=4 right=317 bottom=82
  93. -- title width / last selected line: 0
  94. -- icon id / first selected line: 0 / 0
  95. -- text alignment: 0
  96. -- font id: 3
  97. -- text size: 9
  98. -- style flags: 256
  99. -- line height: 12
  100. -- part name: Steve
  101.  
  102.  
  103. -- part 2 (field)
  104. -- low flags: 00
  105. -- high flags: 0000
  106. -- rect: left=146 top=5 right=26 bottom=429
  107. -- title width / last selected line: 0
  108. -- icon id / first selected line: 0 / 0
  109. -- text alignment: 1
  110. -- font id: 3
  111. -- text size: 14
  112. -- style flags: 256
  113. -- line height: 18
  114. -- part name: Name
  115.  
  116.  
  117. -- part 4 (button)
  118. -- low flags: 00
  119. -- high flags: A004
  120. -- rect: left=4 top=318 right=339 bottom=77
  121. -- title width / last selected line: 0
  122. -- icon id / first selected line: 0 / 0
  123. -- text alignment: 1
  124. -- font id: 0
  125. -- text size: 12
  126. -- style flags: 0
  127. -- line height: 16
  128. -- part name: Action Off
  129. ----- HyperTalk script -----
  130. on mouseUp
  131.   if the optionkey is down then pass mouseup
  132.   if the short name of the target is "Action Off" then
  133.     get the script of background "information"
  134.     put "--" before it
  135.     put "--" before last line of it
  136.     set the script of background "information" to it
  137.     set the name of target to "Action On"
  138.   else
  139.     get the script of background "information"
  140.     delete word 1 of it
  141.     put "on " before it
  142.     delete word 1 of last line of it
  143.     put "end " before last line of it
  144.     set the script of background "information" to it
  145.     set the name of target to "Action Off"
  146.   end if
  147.  
  148. end mouseUp
  149.  
  150.  
  151.  
  152. -- part 6 (field)
  153. -- low flags: 81
  154. -- high flags: 0004
  155. -- rect: left=46 top=27 right=65 bottom=276
  156. -- title width / last selected line: 0
  157. -- icon id / first selected line: 0 / 0
  158. -- text alignment: 0
  159. -- font id: 3
  160. -- text size: 12
  161. -- style flags: 0
  162. -- line height: 16
  163. -- part name: HyperCard
  164.  
  165.  
  166. -- part 7 (field)
  167. -- low flags: 81
  168. -- high flags: 0004
  169. -- rect: left=20 top=86 right=148 bottom=190
  170. -- title width / last selected line: 0
  171. -- icon id / first selected line: 0 / 0
  172. -- text alignment: 0
  173. -- font id: 3
  174. -- text size: 12
  175. -- style flags: 0
  176. -- line height: 16
  177. -- part name: XFCNs
  178.  
  179.  
  180. -- part 8 (field)
  181. -- low flags: 81
  182. -- high flags: 0004
  183. -- rect: left=27 top=80 right=144 bottom=229
  184. -- title width / last selected line: 0
  185. -- icon id / first selected line: 0 / 0
  186. -- text alignment: 0
  187. -- font id: 3
  188. -- text size: 12
  189. -- style flags: 0
  190. -- line height: 16
  191. -- part name: XCMDs
  192.  
  193.  
  194. -- part 9 (field)
  195. -- low flags: 81
  196. -- high flags: 0004
  197. -- rect: left=37 top=80 right=151 bottom=264
  198. -- title width / last selected line: 0
  199. -- icon id / first selected line: 0 / 0
  200. -- text alignment: 0
  201. -- font id: 3
  202. -- text size: 12
  203. -- style flags: 0
  204. -- line height: 16
  205. -- part name: Library
  206.  
  207.  
  208. -- part 10 (field)
  209. -- low flags: 81
  210. -- high flags: 0004
  211. -- rect: left=71 top=82 right=152 bottom=327
  212. -- title width / last selected line: 0
  213. -- icon id / first selected line: 0 / 0
  214. -- text alignment: 0
  215. -- font id: 3
  216. -- text size: 12
  217. -- style flags: 0
  218. -- line height: 16
  219. -- part name: updater
  220.  
  221.  
  222. -- part 11 (field)
  223. -- low flags: 81
  224. -- high flags: 0004
  225. -- rect: left=55 top=93 right=195 bottom=313
  226. -- title width / last selected line: 0
  227. -- icon id / first selected line: 0 / 0
  228. -- text alignment: 0
  229. -- font id: 3
  230. -- text size: 12
  231. -- style flags: 0
  232. -- line height: 16
  233. -- part name: Macintosh
  234.  
  235.  
  236. -- part 12 (field)
  237. -- low flags: 80
  238. -- high flags: 0004
  239. -- rect: left=44 top=71 right=140 bottom=275
  240. -- title width / last selected line: 0
  241. -- icon id / first selected line: 0 / 0
  242. -- text alignment: 0
  243. -- font id: 3
  244. -- text size: 12
  245. -- style flags: 0
  246. -- line height: 16
  247. -- part name: drazga
  248.  
  249.  
  250. -- part 13 (field)
  251. -- low flags: 81
  252. -- high flags: 0004
  253. -- rect: left=55 top=74 right=125 bottom=263
  254. -- title width / last selected line: 0
  255. -- icon id / first selected line: 0 / 0
  256. -- text alignment: 0
  257. -- font id: 3
  258. -- text size: 12
  259. -- style flags: 0
  260. -- line height: 16
  261. -- part name: $100,000
  262.  
  263.  
  264. -- part 14 (field)
  265. -- low flags: 80
  266. -- high flags: 0004
  267. -- rect: left=41 top=82 right=169 bottom=318
  268. -- title width / last selected line: 0
  269. -- icon id / first selected line: 0 / 0
  270. -- text alignment: 0
  271. -- font id: 3
  272. -- text size: 12
  273. -- style flags: 0
  274. -- line height: 16
  275. -- part name: resources
  276.  
  277.  
  278. -- part 15 (field)
  279. -- low flags: 80
  280. -- high flags: 0004
  281. -- rect: left=49 top=64 right=199 bottom=345
  282. -- title width / last selected line: 0
  283. -- icon id / first selected line: 0 / 0
  284. -- text alignment: 0
  285. -- font id: 3
  286. -- text size: 12
  287. -- style flags: 0
  288. -- line height: 16
  289. -- part name: three
  290.  
  291.  
  292. -- part 16 (field)
  293. -- low flags: 81
  294. -- high flags: 0004
  295. -- rect: left=53 top=64 right=198 bottom=399
  296. -- title width / last selected line: 0
  297. -- icon id / first selected line: 0 / 0
  298. -- text alignment: 0
  299. -- font id: 3
  300. -- text size: 12
  301. -- style flags: 0
  302. -- line height: 16
  303. -- part name: laughed
  304.  
  305.  
  306. -- part 17 (field)
  307. -- low flags: 80
  308. -- high flags: 0004
  309. -- rect: left=54 top=63 right=181 bottom=321
  310. -- title width / last selected line: 0
  311. -- icon id / first selected line: 0 / 0
  312. -- text alignment: 0
  313. -- font id: 3
  314. -- text size: 12
  315. -- style flags: 0
  316. -- line height: 16
  317. -- part name: AnalytX
  318.  
  319.  
  320. -- part contents for card part 3
  321. ----- text -----
  322. Developer Stack--
  323. Original Concept & Stack by Steve Drazga
  324. ¬©1988 AnalytX* Incorporated
  325. Individual contributions are credited individually.
  326.  
  327. A continuing resource for Hypercard* developers.
  328.  
  329. ••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
  330. Items with an asterisk (*) hold additional information.   Double click on the word to access this information.
  331. ••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
  332.              
  333.            ‚Ä¢It will be easier to read this card if you click on the 'Action Off' button‚Ä¢
  334.  
  335.  
  336. The purpose of this stack:
  337.  
  338. This stack is designed for anyone developing Hypercard stacks.  It includes public domain and shareware XFCNs*, XCMDs*, HyperTalk functions and useful script segments.  It is a user supported effort and will constantly be growing.  The basic idea is to collect all the useful resources* a Hypercard developer needs into one place, making the development process much easier and faster.  This stack is designed as a learning tool.  Nothing is protected or hidden from the user.  Tear into the scripts until you understand what they do.  Play around with the XCMDs and XFCNs.
  339.  
  340.  
  341.  
  342. How it works:
  343.  
  344. This copy of the stack you are reading is the main library* for all the information.   It is being distributed through electronic bulletin boards, users groups, and other public domain sources.  Every quarter it will be updated to include all the latest ideas & techniques that may be useful to a Hypercard developer.  New issues are distributed in June, September, December, and March.  
  345.  
  346. Each update will be released in 2 formats.  The first format will be the original Developer stack, which you are now looking at.  The second format will be an updater* stack.  Since the original library stack will begin to grow quite large, anyone who already has this stack (like you) can get just the updater stack.  This method will make getting updates a lot less expensive for those people who download them from commercial bulletin boards.  
  347.  
  348. Every issue number higher than 1.0 will be followed by either an 'r' or a 'u'.  An issue number followed by 'r' (i.e. 1.1r) is the full release version of that issue.  An issue number followed by a 'u' (i.e. 1.1u) indicates that your stack has been updated with an updater stack.  The full release issue is always more complete than the upgraded version 
  349. (it is constantly updated to take advantage of the latest HyperTalk tricks).  The Upgrader stacks do not include all the changes made to the full issue, due to time and programming considerations.  You can always get the latest release version from the address below.
  350.  
  351. You may add as many cards as you like to this stack without affecting the operation of the updater stacks.  Just be certain not to rename or delete any of the backgrounds.  For a larger distribution of ideas, it would be better if you send new script segments, functions, XFCNS, & XCMDs to us for inclusion in stack updates.
  352.  
  353.  
  354.  
  355. What you have to do:
  356.  
  357. The only way this stack will succeed as a useful resource for developers is if everyone contributes.  It's easy to do, and you even get something in return.  If you have written any XFCNs, XCMDs, functions, scripts, or other HyperCard related items that you have found useful, send it to us, on a disk, to the address below.  In return, you will receive the latest version of the Developer Stack, and a warm feeling inside from  being a contributing member of the Macintosh* and Hypercard community.  Hypercard has made developers out of many people who would have never thought of programming before.  Now the Developer Stack is here to make distribution of all the great new ideas and techniques simple.
  358.  
  359.  
  360. If you use the Developer Stack in developing any stacks to be released, please include the following credit somewhere in the stack:
  361.  
  362. •••
  363. Developed with the aid of the Developer Stack.
  364. To receive the latest version of the Developer Stack, send $10.00 to:
  365. AnalytX 
  366. Box 388
  367. Southampton, PA  18966
  368. •••
  369.  
  370.  
  371. Credits:
  372.  
  373. I have tried to give credit for everything included in the stack.  There are a few items that have gone without credits because I don't know where they originally came from.  If you recognize any of them, and can attribute them to the correct person, please let me know.  Anything sent for inclusion in the stack will be credited to the person who created it.  (You too can become famous and people will be able to talk about you behind your back, if you would only contribute.)
  374.  
  375.  
  376. New issues:
  377.  
  378. With all the action going on in the Hypercard community we can all benefit from new ideas and resources*, collected into one place.    We will take contributions from any source with the following conditions:
  379.  
  380. 1) If you send something to be included in the stack, it should be debugged and ready to go.
  381. If it includes any scripts, they should be well commented, and have a header giving credit to yourself.  Shareware items may be included in the stack, with the appropriate notations.
  382.  
  383. 2) If you send something to be included in the stack, and want to receive the latest version of the Developer Stack, you MUST include a self-addressed stamped envelope.  If you don't, you won't get your disk back.
  384.  
  385. 3) If you have any ideas or comments about the stack, and where it should go (future direction-wise, not physically), LET US KNOW!  Don't keep your ideas to yourself.  
  386. We would like to see this grow into a useful tool for ALL Hypercard users, not just the experts.  While this stack has been tested thoroughly, there still may be some bugs (did I here someone whisper MicroSoft Word 3.0?).  If you find any PUHLEASE let me know. Send me mail (USPS or electronic).
  387.  
  388. 4) We cannot guarantee that any specific contribution will be included in an update of the stack.  However, any that are included will be given full credit as to their original source.
  389.  
  390.  
  391. How to reach us:
  392.  
  393. US MAIL:
  394. Steve Drazga*
  395. AnalytX
  396. Box 388
  397. Southampton, PA  18966
  398. (215) 464-3733
  399.  
  400.  
  401. GEnie:
  402. S.DRAZGA
  403.  
  404. Compuserve:
  405. 76530,1107
  406.  
  407.  
  408. What you should send as a contributor:
  409. 1) A disk with your contribution.  Since it probably won't fill up the entire disk, you can also include some stacks, sounds (I love those digitized sounds), or any other neat programs you have.
  410.  
  411. 2) A self-addressed stamped envelope - if you want your disk returned with a copy of the latest update of the Developer Stack.
  412.  
  413. 3) A note telling me what Hypercard is in 15 words or less (HA!).
  414.  
  415. 4) $100,000* in small bills, or your suggestions for the continuing growth of this stack as a developers' tool, if you happen to be low on cash.
  416.  
  417.  
  418.  
  419. What if you just like to watch?
  420.  
  421. You say you haven't got the hang of Hypercard yet.  You don't think you have anything that would interest other HC users?  You say you're still having trouble putting the disk in the right side up.  You say you can't get the upgrades from a users group because you wouldn't want to belong to any group that would have you as a member.  Maybe you can't download the latest version because you think telecommunication is calling you mother-in-law.  No Problem.  You can get the latest version of the Developer Stack by sending $10 
  422. (US funds) to the address above.  Make sure you indicate what version you have so we don't send you a duplicate copy.  You can also subscribe to the Developer Stack for a year for just $35.  You will receive the next four issues of the Developer Stack.  Make all checks payable to AnalytX.  If you would like it shipped overseas, please add $1.50 per issue (so we can send it out to you air mail).
  423.  
  424.  
  425.  
  426. -- part contents for card part 6
  427. ----- text -----
  428. Registered Trademark of Apple Computer.  (He made me say it, Ma!)
  429.  
  430. -- part contents for background part 2
  431. ----- text -----
  432. Hypercard,XFCNs,XCMDs,library,updater,resources,Macintosh,$100,000,Drazga,laughed,analytX,
  433. AnalytX,
  434.  
  435. -- part contents for card part 7
  436. ----- text -----
  437. External Function resources, used to extend the usefulness of HC.
  438.  
  439. -- part contents for card part 8
  440. ----- text -----
  441. External Command resources, used to extend the usefulness of HC.
  442.  
  443. -- part contents for card part 9
  444. ----- text -----
  445. Since it is a repository for alot of different types of information on HC, I call it a library.  Besides, who wrote this stack, anyway?
  446.  
  447. -- part contents for card part 10
  448. ----- text -----
  449. This is neat.  It will automatically copy all the new cards and resources into the right places in the Developers stack with just a click of a button.  
  450.  
  451. -- part contents for card part 11
  452. ----- text -----
  453. Registered trademark of Apple Computer.  Hey, wait a minute.  Angus Macintosh might have something to say about that.  (I wonder how that goes over in Scotland -- "Yeah, I just bought a Macintosh").
  454.  
  455. -- part contents for card part 12
  456. ----- text -----
  457. Steve Drazga...
  458. Wait a minute, isn't he the guy that is putting out the Developer stack?  What a sport!
  459.  
  460. -- part contents for card part 13
  461. ----- text -----
  462. American dollars or Japanese yen only.  None of that Canadian stuff, eh.
  463.  
  464. -- part contents for card part 14
  465. ----- text -----
  466. I'm not talking about the kind of resources you move with resedit.  I'm talking about the kind of resources you use to make life easier for yourself.  A remote control is this kind of a resource.
  467.  
  468. -- part contents for card part 15
  469. ----- text -----
  470. If lots of people send in their tricks and techniques, it may come out at two week intervals.  If everyone sits on their backsides staring at 9 point type on a computer screen like, for example, YOU, then it may come out only once a month or so.  The point is, there are lots of people doing lots of Hypercard programming.  We just have to get together.
  471.  
  472. -- part contents for card part 16
  473. ----- text -----
  474. "Ha!  You bought a Macintosh?!  Isn't that cute.  It's got a cute little screen.  It must be fun to play with.  And look at those cute little pictures.  I guess you have to be pretty stupid to need little pictures, huh..."
  475. Anybody who was part of the Macintosh front lines, in 1984 and 1985 remembers that.  Guess they finally realized that IBM users are just as stupid as Mac users, with PS/2 et al.
  476.  
  477. -- part contents for card part 17
  478. ----- text -----
  479. AnalytX is a Macintosh consulting & software development firm specializing in Hypercard applications & training.  For more information on how you can integrate the Macintosh system into your working environment, give us a call at (215) 464-3733.
  480.  
  481. -- part contents for card part 2
  482. ----- text -----
  483. Innovative Hypercard Stackware
  484.  
  485. -- part contents for card part 1
  486. ----- text -----
  487.  
  488. Developer Stack